5 POKE53281,.:POKE53280,.:PRINTCHR$(147)CHR$(14)CHR$(8)
10 GOSUB61000
11 POKE214,9:PRINT:PRINTTAB(14)"[154][212][200][197] [208][210][207] [211][200][207][208]"
12 PRINTTAB(8)"[193] [199]OLF [200]ANDICAP [208]ROGRAM
13 [151]214,13:[153]:[153]"DEF             (null)OADING (null)(null)..."
16 [158]57812"PSB FONT",8,0:[151]780,0:[151]781,0:[151]782,40:[158]65493
17 [158]57812"READER $C700",8,0:[151]780,0:[151]781,0:[151]782,199:[158]65493
18 [151]53272,27
100 [151]214,13:[153]:[153]"DEF           (null)OADING (null)ROGRAM..."
102 [158]57812"PRO.O",8,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
105 [137]60000
110 :
5025 :
6000 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
6010 [153]"(null)             DEF(null)LEFT$VAL (null)(null)(null) (null)LEFT$(null)(null)             (null)";
6015 [153]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<";
6020 [129]I[178]1[164]20:[153]"(null)                                      (null)";:[130]
6030 [153]"(null)             PRINT(null)RESS (null)VAL(null)(null)(null)(null)             (null)";
6035 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";:[151]2023,125:[151]56295,1
6040 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]:[142]
6045 :
7000 [161]K$:[139]K$[179][177][199](13)[167]7000
7005 [142]
7010 :
10000 [159]15,8,15,"S0:PRO SHOP BOOT":[160]15:[148]"0:PRO SHOP BOOT",8:[128]
10010 :
60000 [153]"STOPLOAD"[199](34)"PRO SHOP"[199](34)",8"
60025 [153]"RUN"
60030 [151]43,1:[151]44,48:[151]12288,0
60035 [151]631,13:[151]632,13:[151]633,13:[151]198,3
60040 [162]
60999 :
61000 [151]214,15:[153]
61110 [153]"  LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
61120 [153]"  PRINT#                                    "
61130 [153]"                                      "
61140 [153]"                                      "
61150 [153]"        (null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) 77      "
61160 [153]"      (null)UBSCRIPTIONS 1-800-831-2694    "
61170 [153]"          ATNLL (null)IGHTS (null)ESERVED         "
61180 [153]"                                      "
61190 [153]"  POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
61200 AU$[178]"    (null)LEFT$VAL (null)(null)(null) (null)LEFT$(null)(null)    ":[151]214,17:[153]
61205 [153][166]20[171][195](AU$)[173]2)"PRINT#"AU$
61210 AU$[178]"PEEKY PEEKARBARA LEFT$. (null)CHULAK (LEN) 1990":[151]214,18:[153]
61220 [153][166]20[171][195](AU$)[173]2)"PRINT#"AU$"":[142]